home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / MH Checking & Savings v2.4d.cpt / Checking & Savings Demo2.4 / card_13533.txt < prev    next >
Text File  |  1988-02-27  |  3KB  |  155 lines
  1. -- card: 13533 from stack: in.4
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 13235
  5. -- name: Map
  6. ----- HyperTalk script -----
  7. on closeCard
  8.   visual effect iris open
  9. end closeCard
  10.  
  11.  
  12. -- part 7 (field)
  13. -- low flags: 81
  14. -- high flags: 0004
  15. -- rect: left=166 top=15 right=126 bottom=495
  16. -- title width / last selected line: 0
  17. -- icon id / first selected line: 0 / 0
  18. -- text alignment: 1
  19. -- font id: 3
  20. -- text size: 10
  21. -- style flags: 0
  22. -- line height: 13
  23. -- part name: Blank Pop
  24.  
  25.  
  26. -- part 13 (button)
  27. -- low flags: 80
  28. -- high flags: A003
  29. -- rect: left=347 top=97 right=119 bottom=478
  30. -- title width / last selected line: 0
  31. -- icon id / first selected line: 0 / 0
  32. -- text alignment: 1
  33. -- font id: 0
  34. -- text size: 12
  35. -- style flags: 0
  36. -- line height: 16
  37. -- part name: Cancel
  38. ----- HyperTalk script -----
  39. on mouseUp
  40.   Global HelpCardName
  41.  
  42.   hide card button "Help"
  43.   hide card button "Cancel"
  44.   hide card field "Blank Pop"
  45.  
  46.   if helpCardName is not empty then go to card HelpCardName
  47.  
  48. end mouseUp
  49.  
  50.  
  51.  
  52. -- part 16 (button)
  53. -- low flags: 00
  54. -- high flags: A004
  55. -- rect: left=0 top=293 right=342 bottom=115
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 9236 / 9236
  58. -- text alignment: 1
  59. -- font id: 0
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: Click to copy to home
  64. ----- HyperTalk script -----
  65. on mouseUp
  66.  
  67.   put "card " & quote & "Map" & quote into ThisCardName
  68.   if the name of this card is ThisCardName then
  69.     beep
  70.     answer "Do you want to copy this button to your Home Card?" with "Yes" or "Cancel"
  71.     if it is "Yes" then
  72.       send "CopyButtonToHome" to background
  73.     end if
  74.   else
  75.  
  76.     put the name of the target into thisName
  77.     delete word 1 to 2 of thisName
  78.     delete first char of thisName
  79.     delete last char of thisName
  80.     visual effect dissolve to black
  81.     -- Go to the name of the stack
  82.     go to stack thisName
  83.  
  84.   end if
  85. end mouseUp
  86.  
  87.  
  88.  
  89. -- part 18 (button)
  90. -- low flags: 80
  91. -- high flags: A003
  92. -- rect: left=182 top=97 right=119 bottom=330
  93. -- title width / last selected line: 0
  94. -- icon id / first selected line: 0 / 0
  95. -- text alignment: 1
  96. -- font id: 0
  97. -- text size: 12
  98. -- style flags: 0
  99. -- line height: 16
  100. -- part name: HELP
  101. ----- HyperTalk script -----
  102. on mouseUp
  103.   Global HelpCardName
  104.   if the optionKey is down then
  105.     put "This button will take you to the help stacks.  The help" && "stacks provide either a brief overview of the program, or a" && "detailed manual (good for looking up a topic)." into String
  106.     put the name of the target into ThisItem
  107.     HelpMsg1 String, ThisItem
  108.     exit mouseUp
  109.   end if
  110.  
  111.   Click at the loc of card button "Cancel"
  112.   set cursor to 4
  113.  
  114.   push card
  115.   push card
  116.   push card
  117.  
  118.   go to stack "Checking & Savings Help"
  119.  
  120. end mouseUp
  121.  
  122.  
  123.  
  124. -- part 19 (field)
  125. -- low flags: 81
  126. -- high flags: 2004
  127. -- rect: left=50 top=45 right=310 bottom=470
  128. -- title width / last selected line: 0
  129. -- icon id / first selected line: 0 / 0
  130. -- text alignment: 1
  131. -- font id: 3
  132. -- text size: 14
  133. -- style flags: 0
  134. -- line height: 18
  135. -- part name: Help Message Field
  136. ----- HyperTalk script -----
  137. on mouseUp
  138.   set cursor to 4
  139.   put the name of the target into thisField
  140.   do "put empty into" && thisField
  141.   hide thisField
  142. end mouseUp
  143.  
  144.  
  145. -- part contents for card part 7
  146. ----- text -----
  147.  
  148. For Help, click the Help button below.
  149.  
  150. (Limited Help is also available while running this program.  If you desire more information about what a button does, hold the OPTION key down while clicking on the desired button. )
  151.  
  152.  
  153.  
  154.  
  155.